home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programmer's Power Pack / Delphi Volume 1.iso / e_to_l / fbuilder / delphi / demos / fbhelpfm.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-09-15  |  1.5 KB  |  70 lines
  1. { FormulaBuilder                }
  2. { YGB Software, Inc.            }
  3. { Copyright 1995 Clayton Collie }
  4. { All rights reserved           }
  5.  
  6. { Simple Notebook based help for FormulaBuilder Demo  }
  7.  
  8. unit Fbhelpfm;
  9. interface
  10. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, StdCtrls, Tabs,
  11.   Buttons, ExtCtrls;
  12.  
  13. type
  14.   THelpDialog = class(TForm)
  15.     ButtonPanel: TPanel;
  16.     TabSet: TTabSet;
  17.     Notebook: TNotebook;
  18.     OKBtn: TBitBtn;
  19.     CancelBtn: TBitBtn;
  20.     GroupBox1: TGroupBox;
  21.     GroupBox2: TGroupBox;
  22.     GroupBox3: TGroupBox;
  23.     Memo1: TMemo;
  24.     Memo2: TMemo;
  25.     Memo3: TMemo;
  26.     Page1GroupBox: TGroupBox;
  27.     Memo5: TMemo;
  28.     Memo4: TMemo;
  29.     procedure FormCreate(Sender: TObject);
  30.     procedure TabSetClick(Sender: TObject);
  31.   private
  32.     { Private declarations }
  33.   public
  34.     { Public declarations }
  35.   end;
  36.  
  37. var
  38.   HelpDialog: THelpDialog;
  39.  
  40.   Procedure DisplayHelp(pageno : byte);
  41.  
  42. implementation
  43.  
  44. {$R *.DFM}
  45.  
  46. Procedure DisplayHelp(pageno : byte);
  47. var helpDlg : THelpDialog;
  48. begin
  49.   HelpDlg := THelpDialog.Create(NIL);
  50.   helpDlg.Notebook.PageIndex := Pageno;
  51.   helpdlg.Tabset.TabIndex    := PageNo;
  52.   HelpDlg.Showmodal;
  53.   helpdlg.free;
  54. end;
  55.  
  56. procedure THelpDialog.FormCreate(Sender: TObject);
  57. begin
  58.   { make the number of Tabs = number of Pages,
  59.     and have the same names }
  60.   TabSet.Tabs := Notebook.Pages;
  61. end;
  62.  
  63. procedure THelpDialog.TabSetClick(Sender: TObject);
  64. begin
  65.   { set visible Page to which Tab was clicked }
  66.   Notebook.PageIndex := TabSet.TabIndex;
  67. end;
  68.  
  69. end.
  70.